home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / j_20 morse r_t.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  78 lines
  1. 10 GOTO200
  2. 15 FORL=ITOLEN(M$(A)):S$=MID$(M$(A),L,I):M=T:IFS$="-"THENM=DL
  3. 20 POKEWF,17:POKEAD,190:POKESR,248:FORD=ITOM:NEXT
  4. 21 POKEWF,0:POKEAD,0:POKESR,0:FORD=ITOES:NEXT:NEXT
  5. 30 FORD=ITOBF:GETK$:PRINTK$;
  6. 32 IFK$=CHR$(Q)ANDB$<>""THENB$=LEFT$(B$,LEN(B$)-I):GOTO30
  7. 34 IFK$=CHR$(QQ)THENB$="":PRINT"[147]":GOTO30
  8. 36 B$=B$+K$:NEXT
  9. 38 IFB$<>""THEN50
  10. 40 GETK$:IFK$=""THEN40
  11. 45 B$=K$:PRINTB$;
  12. 50 A=ASC(B$):B$=RIGHT$(B$,LEN(B$)-I):IFA>LLTHEN250
  13. 60 IFA=SPTHENFORD=ITOWS:NEXT:GOTO38
  14. 70 A=A-FF:IFA<ITHENA=I
  15. 80 GOTO15
  16. 90 GOTO20
  17. 100 IFPEEK(C)=ZTHENL=L+I:IFL<HTHEN100
  18. 110 L=Z:IFPEEK(C)=ZTHENPRINT" ";
  19. 112 IFPEEK(G)=YTHENPOKE198,Z:GOTO245
  20. 115 IFPEEK(C)=ZTHEN112
  21. 120 L=L+I:IFPEEK(C)THEN120
  22. 130 IFL>HTHENX=X+X:H=(E*H+L+L+N)/F:GOTO150
  23. 140 X=X+X+I:H=(H+H+H+L+L+J)/B
  24. 150 L=Z:IFX>RTHENX=I:GOTO100
  25. 160 IFPEEK(C)=ZTHENL=L+I:IFL+L<HTHEN160
  26. 170 IFNOTL+L<HTHEN190
  27. 180 IFPEEK(C)THENL=Z:GOTO100
  28. 190 PRINTMID$(R$,X,I);:X=I:L=Z:GOTO100
  29. 200 DIMM$(51):FORL=1TO51:READM$(L):NEXT:S=20:GOSUB601
  30. 210 PRINT"[144][147]J/20 MORSE SEND/REC":PRINT"SPEED (5 TO 80)"S"[157][157][157][157][157]";
  31. 215 INPUTS:IFS<5ORS>80THEN210
  32. 216 POKE54273,37:WF=54276:AD=54277:SR=54278:POKE54272,162
  33. 220 PRINT"[147]":POKE54296,15:Z=0:W=1:K=222:U=254:T=2300/S^1.25
  34. 225 BF=T/12:ES=7500/S^2:FF=39:LL=90:SP=32:WS=3*T:DL=3*T:IFS>30THENDL=4*T
  35. 230 R$=" TEMNAIOGKDWRUS??QZYCXBJP?L?FVH09?8???7?+&??/=61????)?@2???3!45"
  36. 235 R$=R$+"???????:????,?????(??;????????-??'????????.??'????????????$"
  37. 240 B=4:E=9:F=12:H=16:G=197:I=1:J=2:N=6:Q=20:QQ=19:R=122:X=1:Y=15:C=56321
  38. 245 PRINT:PRINTSPC(9)"XMT":GOTO40
  39. 250 IFA>132ANDA<141THENA=A-132:ONAGOTO310,330,350,370,320,340,360,380
  40. 255 IFA=141THENPRINTSPC(7)"RECEIVE":GOTO190
  41. 260 GOTO210
  42. 310 K$="   CQ CQ CQ DE W5VKC W5VKC K ":GOTO45
  43. 320 PRINT:PRINT:INPUT"STATION CALL";C$
  44. 325 PRINT:INPUT"NAME";N$
  45. 328 PRINT"[147]":GOTO40
  46. 330 K$=" "+C$+" DE W5VKC "+B$:GOTO45
  47. 340 K$=" QTH VAN ALSTYNE, TX ? VAN ALSTYNE, TX ABT 50 MI N DALLAS. = "+B$:GOTO45
  48. 350 K$="SO HW CPY "+N$+"? )[134]K":GOTO45
  49. 360 K$=" RIG HR TEN TEC CENTURY/21 INTO A DIPOLE = KEYING WID A COMMODORE 64"
  50. 361 K$=K$+" = FRIEND WB5AYD WROTE SOFTWARE = "+B$:GOTO45
  51. 370 B$="":PRINT"[147]"SPC(6)"COMPOSING"
  52. 371 GETK$:IFK$=CHR$(136)THENPRINT:PRINTSPC(6)" SENDING [146]":GOTO38
  53. 372 IFK$=""THEN371
  54. 373 PRINTK$;:IFASC(K$)>132THENPRINT""MID$("13572468",ASC(K$)-132,1)"[146]";
  55. 374 IFK$=CHR$(20)THENB$=LEFT$(B$,LEN(B$)-1):GOTO371
  56. 375 IFLEN(B$)=255THENPRINT"";:GOTO371
  57. 376 B$=B$+K$:GOTO371
  58. 380 K$=" DE W5VKC "+B$:GOTO45
  59. 500 DATA........,.-.-.,-...-.-,-.--.,--..--,...-.-,.-.-.-,-..-.
  60. 510 DATA-----,.----,..---,...--,....-,.....,-....,--...,---..,----.
  61. 520 DATA---...,-.-.-.,<,-...-,>,..--..,.-...
  62. 530 DATA.-,-...,-.-.,-..,.,..-.,--.,....,..,.---,-.-,.-..,--,-.
  63. 540 DATA---,.--.,--.-,.-.,...,-,..-,...-,.--,-..-,-.--,--..
  64. 601 POKE53281,1:PRINT"[147][144]            64 MORSE R/T"
  65. 602 PRINT"         ADAPTED FOR THE 64":PRINT"                 BY"
  66. 603 PRINT"              TIM HAM [146]"
  67. 604 PRINT"   FROM 'J/20 MORSE R/T' BY R. MYERS"
  68. 605 PRINT"      LIST 63000- FOR HOOKUP INFO.
  69. 606 [129]T[178]1[164]5000:[130]T:[142]
  70. 63000 WRITE:  JOURNAL[173]20, BOX 1149                   VAN ALSTYNE, TX. 75095
  71. 63001 :           (214) 482[171]6679
  72. 63002 :
  73. 63003 : IN[160] A S.A.S.E [129] 20 CENTS           [175] $1.00 [129] BACK ISSUE.
  74. 63004 :   ASK [129] VOL.1 NO.12 [129]
  75. 63005 : THE RECIEVE [173] TRANSMIT CIRCUIT                [129] J[173]20 M[176]SE.
  76. 63006 : JOURNAL[173]20 IS PUBLISHED EVERY    TWO WEEKS BY MIKE APSEY. SUBSCRIPTI[145]
  77. 63007 : RATE IS $18.00 PER YEAR VIA                 FIRST CLASS MAIL.
  78.